home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS036.dsk / TARGET SHOOT.int < prev   
Text File  |  2012-02-16  |  2KB  |  35 lines
  1. 15 CALL -936
  2. 20 A$=" ": POKE 2053,156
  3. 30 VTAB 2:PRINT " TARGET SHOOTING  ":Y=0
  4. 35 FOR I=1 TO 50:NEXT I:PRINT " YOU SHOULD USE 20 DEFLECTORS FOR 100% "
  5. 40 PRINT 
  6. 45 PRINT " DEFLECTOR KEYS ARE : "
  7. 47 PRINT 
  8. 50 PRINT "     'Z' ...... \ "
  9. 55 PRINT "     '?' ...... / "
  10. 60 PRINT 
  11. 65 PRINT " HIT A KEY TO PLACE A DEFLECTOR. IF YOU  GET BOXED IN, JUST WAIT. AFTER ABOUT    10 SECONDS, YOU WILL BE MOVED"
  12. 70 PRINT " AUTOMATICALLY":PRINT :PRINT " THE FEWER DEFLECTORS USED, THE BETTER."
  13. 75 FOR I=1 TO 7000:NEXT I
  14. 110 FOR I=1 TO 500:NEXT I:Z=0:CALL -936
  15. 120 PRINT "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!";:FOR I=1 TO 20:PRINT "!                                      !";:NEXT I
  16. 125 PRINT "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
  17. 127 VTAB 23:TAB (1):PRINT "TARGETS = 10     DEFLECTORS = 0 "
  18. 130 T=10:FOR I=1 TO T:VTAB  RND (20)+2:TAB  RND (36)+2:PRINT "#":NEXT I
  19. 135 X=2:Y=2
  20. 140 JP=0:XD=1:YD=0:VTAB Y:TAB (X):PRINT " ":Y= RND (19)+2:X= RND (36)+2:VTAB Y:TAB (X):PRINT "*"
  21. 145 PRINT "<CTRL-G><CTRL-G>"
  22. 150 VTAB Y:TAB (X):PRINT " "
  23. 155 X=X+XD:Y=Y+YD:VTAB Y:TAB (X):B= SCRN(X-1,2*(Y-1))+16* SCRN(X-1,2*(Y-1)+1):PRINT "*"
  24. 156 JP=JP+1:IF JP>=1000 THEN 140
  25. 160 IF B=163 THEN 220:IF B=160 THEN 180:IF B=175 THEN 200:IF B=220 THEN 190
  26. 170 VTAB Y:TAB (X):PRINT "!":Y=Y-YD:X=X-XD:XD=-XD:YD=-YD:VTAB Y:TAB (X):PRINT "*":GOTO 150
  27. 180 D= PEEK (-16384):IF D<128 THEN 150:Z=Z+1:JP=0: POKE -16368,0:IF D=175 THEN 200:IF D<>218 THEN 150
  28. 190 VTAB Y:TAB (X):PRINT "\":E=XD:XD=YD:YD=E:GOTO 210
  29. 200 VTAB Y:TAB (X):PRINT "/":E=XD:XD=-YD:YD=-E
  30. 210 VTAB 23:TAB (1):PRINT "TARGETS = ";T;"     DEFLECTORS = ";Z;"  "
  31. 215 JP=JP+1:IF JP>=800 THEN 140:GOTO 155
  32. 220 PRINT "<CTRL-G>":T=T-1:VTAB 23:TAB (1):PRINT "TARGETS = ";T;"     DEFLECTORS = ";Z;"  "
  33. 225 IF T>0 THEN 150:CALL -936:PRINT " YOU DID IT IN ";Z;" TRIES"
  34. 230 PRINT :PRINT :PRINT " YOUR PERCENTAGE WAS ";10000/((Z*100)/20);"%":PRINT "<CTRL-G><CTRL-G><CTRL-G>":FOR I=1 TO 2000:NEXT I:GOTO 110
  35.